program ej11; { Ejemplo 11 de CpcPaChi }
const modo =0, linea1 = 10;
var
  color: byte; 
label
  salto;
  
begin
  cpcMode(modo);
  color := 2;
  pen(color);
  paper(1);
  locate(10,linea1);
  writeChar( 'a' );
  
  (* Volvemos a escribir en
     la misma linea *)
  inc(color);
  pen(color);
  writeChar( 'b' );
  
  goto salto;
  (* Las dos siguientes se omiten *)
  inc(color);
  pen(color);
  
salto:
  paper(2);
  locate ( 1 ,  linea1 );
  writeChar('d');
end.

